home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Use_of_DWM2084049202007.psc / dwm glas / Frm_Main.frm < prev    next >
Text File  |  2007-09-20  |  17KB  |  480 lines
  1. VERSION 5.00
  2. Begin VB.Form Frm_Main 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Test"
  6.    ClientHeight    =   7005
  7.    ClientLeft      =   45
  8.    ClientTop       =   345
  9.    ClientWidth     =   4215
  10.    BeginProperty Font 
  11.       Name            =   "Tahoma"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "Frm_Main.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   467
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   281
  26.    StartUpPosition =   2  'CenterScreen
  27.    Begin DWMEffects.DWM_Label DWM_Label2 
  28.       Height          =   375
  29.       Left            =   0
  30.       TabIndex        =   16
  31.       Top             =   6480
  32.       Width           =   5715
  33.       _ExtentX        =   2752
  34.       _ExtentY        =   873
  35.       Caption         =   "This can be used to make a  list/playlist activex control."
  36.       HoverColor      =   16777215
  37.       UseHover        =   -1  'True
  38.       FadeInStep      =   10
  39.       FadeOutStep     =   25
  40.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  41.          Name            =   "Tahoma"
  42.          Size            =   8.25
  43.          Charset         =   0
  44.          Weight          =   400
  45.          Underline       =   0   'False
  46.          Italic          =   0   'False
  47.          Strikethrough   =   0   'False
  48.       EndProperty
  49.       AutoSize        =   0   'False
  50.    End
  51.    Begin DWMEffects.DWM_Label DWM_Label1 
  52.       Height          =   375
  53.       Left            =   0
  54.       TabIndex        =   15
  55.       Top             =   6120
  56.       Width           =   5310
  57.       _ExtentX        =   2752
  58.       _ExtentY        =   873
  59.       Caption         =   "Move the cursor over the labels to see hover effect."
  60.       HoverColor      =   16777215
  61.       UseHover        =   -1  'True
  62.       FadeInStep      =   10
  63.       FadeOutStep     =   25
  64.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  65.          Name            =   "Tahoma"
  66.          Size            =   8.25
  67.          Charset         =   0
  68.          Weight          =   400
  69.          Underline       =   0   'False
  70.          Italic          =   0   'False
  71.          Strikethrough   =   0   'False
  72.       EndProperty
  73.       AutoSize        =   0   'False
  74.    End
  75.    Begin DWMEffects.DWM_Label DWM_Label 
  76.       Height          =   375
  77.       Index           =   0
  78.       Left            =   360
  79.       TabIndex        =   0
  80.       Top             =   1320
  81.       Width           =   3300
  82.       _ExtentX        =   2752
  83.       _ExtentY        =   873
  84.       Caption         =   "This text is drawn using vista aero theme."
  85.       HoverColor      =   16777215
  86.       UseHover        =   -1  'True
  87.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  88.          Name            =   "Tahoma"
  89.          Size            =   8.25
  90.          Charset         =   0
  91.          Weight          =   400
  92.          Underline       =   0   'False
  93.          Italic          =   0   'False
  94.          Strikethrough   =   0   'False
  95.       EndProperty
  96.       AutoSize        =   0   'False
  97.    End
  98.    Begin DWMEffects.DWM_Label DWM_Label 
  99.       Height          =   375
  100.       Index           =   1
  101.       Left            =   360
  102.       TabIndex        =   1
  103.       Top             =   1680
  104.       Width           =   3300
  105.       _ExtentX        =   2752
  106.       _ExtentY        =   873
  107.       Caption         =   "This text is drawn using vista aero theme."
  108.       HoverColor      =   16777215
  109.       UseHover        =   -1  'True
  110.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  111.          Name            =   "Tahoma"
  112.          Size            =   8.25
  113.          Charset         =   0
  114.          Weight          =   400
  115.          Underline       =   0   'False
  116.          Italic          =   0   'False
  117.          Strikethrough   =   0   'False
  118.       EndProperty
  119.       AutoSize        =   0   'False
  120.    End
  121.    Begin DWMEffects.DWM_Label DWM_Label 
  122.       Height          =   375
  123.       Index           =   2
  124.       Left            =   360
  125.       TabIndex        =   2
  126.       Top             =   600
  127.       Width           =   3300
  128.       _ExtentX        =   2752
  129.       _ExtentY        =   873
  130.       Caption         =   "This text is drawn using vista aero theme."
  131.       HoverColor      =   16777215
  132.       UseHover        =   -1  'True
  133.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  134.          Name            =   "Tahoma"
  135.          Size            =   8.25
  136.          Charset         =   0
  137.          Weight          =   400
  138.          Underline       =   0   'False
  139.          Italic          =   0   'False
  140.          Strikethrough   =   0   'False
  141.       EndProperty
  142.       AutoSize        =   0   'False
  143.    End
  144.    Begin DWMEffects.DWM_Label DWM_Label 
  145.       Height          =   375
  146.       Index           =   3
  147.       Left            =   360
  148.       TabIndex        =   3
  149.       Top             =   960
  150.       Width           =   3300
  151.       _ExtentX        =   2752
  152.       _ExtentY        =   873
  153.       Caption         =   "This text is drawn using vista aero theme."
  154.       HoverColor      =   16777215
  155.       UseHover        =   -1  'True
  156.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  157.          Name            =   "Tahoma"
  158.          Size            =   8.25
  159.          Charset         =   0
  160.          Weight          =   400
  161.          Underline       =   0   'False
  162.          Italic          =   0   'False
  163.          Strikethrough   =   0   'False
  164.       EndProperty
  165.       AutoSize        =   0   'False
  166.    End
  167.    Begin DWMEffects.DWM_Label DWM_Label 
  168.       Height          =   375
  169.       Index           =   4
  170.       Left            =   360
  171.       TabIndex        =   4
  172.       Top             =   240
  173.       Width           =   3300
  174.       _ExtentX        =   2752
  175.       _ExtentY        =   873
  176.       Caption         =   "This text is drawn using vista aero theme."
  177.       HoverColor      =   16777215
  178.       UseHover        =   -1  'True
  179.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  180.          Name            =   "Tahoma"
  181.          Size            =   8.25
  182.          Charset         =   0
  183.          Weight          =   400
  184.          Underline       =   0   'False
  185.          Italic          =   0   'False
  186.          Strikethrough   =   0   'False
  187.       EndProperty
  188.       AutoSize        =   0   'False
  189.    End
  190.    Begin DWMEffects.DWM_Label DWM_Label 
  191.       Height          =   375
  192.       Index           =   5
  193.       Left            =   360
  194.       TabIndex        =   5
  195.       Top             =   3120
  196.       Width           =   3300
  197.       _ExtentX        =   2752
  198.       _ExtentY        =   873
  199.       Caption         =   "This text is drawn using vista aero theme."
  200.       HoverColor      =   16777215
  201.       UseHover        =   -1  'True
  202.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  203.          Name            =   "Tahoma"
  204.          Size            =   8.25
  205.          Charset         =   0
  206.          Weight          =   400
  207.          Underline       =   0   'False
  208.          Italic          =   0   'False
  209.          Strikethrough   =   0   'False
  210.       EndProperty
  211.       AutoSize        =   0   'False
  212.    End
  213.    Begin DWMEffects.DWM_Label DWM_Label 
  214.       Height          =   375
  215.       Index           =   6
  216.       Left            =   360
  217.       TabIndex        =   6
  218.       Top             =   3480
  219.       Width           =   3300
  220.       _ExtentX        =   2752
  221.       _ExtentY        =   873
  222.       Caption         =   "This text is drawn using vista aero theme."
  223.       HoverColor      =   16777215
  224.       UseHover        =   -1  'True
  225.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  226.          Name            =   "Tahoma"
  227.          Size            =   8.25
  228.          Charset         =   0
  229.          Weight          =   400
  230.          Underline       =   0   'False
  231.          Italic          =   0   'False
  232.          Strikethrough   =   0   'False
  233.       EndProperty
  234.       AutoSize        =   0   'False
  235.    End
  236.    Begin DWMEffects.DWM_Label DWM_Label 
  237.       Height          =   375
  238.       Index           =   7
  239.       Left            =   360
  240.       TabIndex        =   7
  241.       Top             =   2400
  242.       Width           =   3300
  243.       _ExtentX        =   2752
  244.       _ExtentY        =   873
  245.       Caption         =   "This text is drawn using vista aero theme."
  246.       HoverColor      =   16777215
  247.       UseHover        =   -1  'True
  248.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  249.          Name            =   "Tahoma"
  250.          Size            =   8.25
  251.          Charset         =   0
  252.          Weight          =   400
  253.          Underline       =   0   'False
  254.          Italic          =   0   'False
  255.          Strikethrough   =   0   'False
  256.       EndProperty
  257.       AutoSize        =   0   'False
  258.    End
  259.    Begin DWMEffects.DWM_Label DWM_Label 
  260.       Height          =   375
  261.       Index           =   8
  262.       Left            =   360
  263.       TabIndex        =   8
  264.       Top             =   2760
  265.       Width           =   3300
  266.       _ExtentX        =   2752
  267.       _ExtentY        =   873
  268.       Caption         =   "This text is drawn using vista aero theme."
  269.       HoverColor      =   16777215
  270.       UseHover        =   -1  'True
  271.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  272.          Name            =   "Tahoma"
  273.          Size            =   8.25
  274.          Charset         =   0
  275.          Weight          =   400
  276.          Underline       =   0   'False
  277.          Italic          =   0   'False
  278.          Strikethrough   =   0   'False
  279.       EndProperty
  280.       AutoSize        =   0   'False
  281.    End
  282.    Begin DWMEffects.DWM_Label DWM_Label 
  283.       Height          =   375
  284.       Index           =   9
  285.       Left            =   360
  286.       TabIndex        =   9
  287.       Top             =   2040
  288.       Width           =   3300
  289.       _ExtentX        =   2752
  290.       _ExtentY        =   873
  291.       Caption         =   "This text is drawn using vista aero theme."
  292.       HoverColor      =   16777215
  293.       UseHover        =   -1  'True
  294.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  295.          Name            =   "Tahoma"
  296.          Size            =   8.25
  297.          Charset         =   0
  298.          Weight          =   400
  299.          Underline       =   0   'False
  300.          Italic          =   0   'False
  301.          Strikethrough   =   0   'False
  302.       EndProperty
  303.       AutoSize        =   0   'False
  304.    End
  305.    Begin DWMEffects.DWM_Label DWM_Label 
  306.       Height          =   375
  307.       Index           =   10
  308.       Left            =   360
  309.       TabIndex        =   10
  310.       Top             =   4920
  311.       Width           =   3300
  312.       _ExtentX        =   2752
  313.       _ExtentY        =   873
  314.       Caption         =   "This text is drawn using vista aero theme."
  315.       HoverColor      =   16777215
  316.       UseHover        =   -1  'True
  317.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  318.          Name            =   "Tahoma"
  319.          Size            =   8.25
  320.          Charset         =   0
  321.          Weight          =   400
  322.          Underline       =   0   'False
  323.          Italic          =   0   'False
  324.          Strikethrough   =   0   'False
  325.       EndProperty
  326.       AutoSize        =   0   'False
  327.    End
  328.    Begin DWMEffects.DWM_Label DWM_Label 
  329.       Height          =   375
  330.       Index           =   11
  331.       Left            =   360
  332.       TabIndex        =   11
  333.       Top             =   5280
  334.       Width           =   3300
  335.       _ExtentX        =   2752
  336.       _ExtentY        =   873
  337.       Caption         =   "This text is drawn using vista aero theme."
  338.       HoverColor      =   16777215
  339.       UseHover        =   -1  'True
  340.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  341.          Name            =   "Tahoma"
  342.          Size            =   8.25
  343.          Charset         =   0
  344.          Weight          =   400
  345.          Underline       =   0   'False
  346.          Italic          =   0   'False
  347.          Strikethrough   =   0   'False
  348.       EndProperty
  349.       AutoSize        =   0   'False
  350.    End
  351.    Begin DWMEffects.DWM_Label DWM_Label 
  352.       Height          =   375
  353.       Index           =   12
  354.       Left            =   360
  355.       TabIndex        =   12
  356.       Top             =   4200
  357.       Width           =   3300
  358.       _ExtentX        =   2752
  359.       _ExtentY        =   873
  360.       Caption         =   "This text is drawn using vista aero theme."
  361.       HoverColor      =   16777215
  362.       UseHover        =   -1  'True
  363.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  364.          Name            =   "Tahoma"
  365.          Size            =   8.25
  366.          Charset         =   0
  367.          Weight          =   400
  368.          Underline       =   0   'False
  369.          Italic          =   0   'False
  370.          Strikethrough   =   0   'False
  371.       EndProperty
  372.       AutoSize        =   0   'False
  373.    End
  374.    Begin DWMEffects.DWM_Label DWM_Label 
  375.       Height          =   375
  376.       Index           =   13
  377.       Left            =   360
  378.       TabIndex        =   13
  379.       Top             =   4560
  380.       Width           =   3300
  381.       _ExtentX        =   2752
  382.       _ExtentY        =   873
  383.       Caption         =   "This text is drawn using vista aero theme."
  384.       HoverColor      =   16777215
  385.       UseHover        =   -1  'True
  386.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  387.          Name            =   "Tahoma"
  388.          Size            =   8.25
  389.          Charset         =   0
  390.          Weight          =   400
  391.          Underline       =   0   'False
  392.          Italic          =   0   'False
  393.          Strikethrough   =   0   'False
  394.       EndProperty
  395.       AutoSize        =   0   'False
  396.    End
  397.    Begin DWMEffects.DWM_Label DWM_Label 
  398.       Height          =   375
  399.       Index           =   14
  400.       Left            =   360
  401.       TabIndex        =   14
  402.       Top             =   3840
  403.       Width           =   3300
  404.       _ExtentX        =   2752
  405.       _ExtentY        =   873
  406.       Caption         =   "This text is drawn using vista aero theme."
  407.       HoverColor      =   16777215
  408.       UseHover        =   -1  'True
  409.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  410.          Name            =   "Tahoma"
  411.          Size            =   8.25
  412.          Charset         =   0
  413.          Weight          =   400
  414.          Underline       =   0   'False
  415.          Italic          =   0   'False
  416.          Strikethrough   =   0   'False
  417.       EndProperty
  418.       AutoSize        =   0   'False
  419.    End
  420. End
  421. Attribute VB_Name = "Frm_Main"
  422. Attribute VB_GlobalNameSpace = False
  423. Attribute VB_Creatable = False
  424. Attribute VB_PredeclaredId = True
  425. Attribute VB_Exposed = False
  426. Option Explicit
  427.  
  428. 'sum parts still do not work as they r incomplete  - like the png loader as a background picture for the label...
  429. ' am workin on it.
  430.  
  431. Private IsGlasFrame As Boolean
  432.  
  433. Public Function FA_Handler_WndProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal WParam As Long, ByVal LParam As Long) As Long
  434.  
  435. ' If you uncomment the if-else below, then the window frame will be removed and u can draw in non-client area
  436. ' but as  side-effect u cannot resize the form and also there will be no form caption and closebutton wont work by itself
  437. ' to correct this , add defwndproc function to the subclasing function . for more info search msdn.com or ask me !
  438.  
  439. 'If uMsg = WM_NCCALCSIZE Then
  440. '        FA_Handler_WndProc = 0
  441. '        Exit Function
  442. 'End If
  443.  
  444. If uMsg = WM_ACTIVATE Then
  445.         If (Not IsGlasFrame) Then
  446.                 FA_DWM_Init_GlasFrame hWnd, -1, -1, -1, -1
  447.                 FA_Handler_WndProc = 0
  448.                 IsGlasFrame = True
  449.                 Exit Function
  450.         End If
  451. End If
  452.  
  453. FA_Handler_WndProc = 1
  454.  
  455. End Function
  456.  
  457. Private Function FA_Form_SubClas_Start()
  458.  
  459. SetProp Me.hWnd, "FA_ExWndProcPtr", GetWindowLong(Me.hWnd, GWL_WNDPROC)
  460. SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf FA_SubClas_WndProc
  461. SetWindowLong Me.hWnd, GWL_USERDATA, ObjPtr(Me)
  462.  
  463. End Function
  464.  
  465. Private Function FA_Form_SubClas_End()
  466.  
  467. SetWindowLong Me.hWnd, GWL_WNDPROC, GetProp(Me.hWnd, "FA_ExWndProcPtr")
  468. RemoveProp Me.hWnd, "FA_ExWndProcPtr"
  469.  
  470. End Function
  471.  
  472. Private Sub Form_Initialize()
  473. IsGlasFrame = False
  474. FA_Form_SubClas_Start
  475. End Sub
  476.  
  477. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  478. FA_Form_SubClas_End
  479. End Sub
  480.